Inter-Office Memorandum 



To F Ludolph 



Date 



February 13, 1978 



From JR Cucinitti 



Location 



Palo Alto 



Subject Disk Diagnostic 



Organization SDD/CS/SD 



XEROX 



Filed on: <Cucinitti>Diskdiag.memo 



The Disk Diagnostic pack has two diagnostics written in four different places in anticipation of loosing one or 
more of them. One diagnostic is booted by using just the boot button in the first case, and depressing the key 
and pushing the boot button in the next. The other diagnostic is booted with the K key and boot button, and 
the V key and the boot button. 

The diagnostic booted with no keys and the key will write one pass on the disk and then start into a read 
loop, we call it write once, read forever. To run the diagnostic just type 40001 B (this sets an error breakpoint) 
40000P (sends the Alto to 40000 to fetch the first instruction). The diagnostic booted with the K or V key wnl' 

write, read, write, read To run this diagnostic type 100111 (sets the error breakpoint), 1000P (fetches the 

instruction from 1000). To halt the diagnostic just depresss the Swat key, this will display four registers, to 
continue depress the P (procede) key. 

The knowledge of the location of the diagnostics in the Alto memory is of some use. The diagnostic booted by 
the key resides from 40000 thru 42L54 and uses memory locations from 1000 thru 37777 for the data 
handling area. The diagnostic booted by the K key resides from 1000 thru 3153 and uses 40000 thru 176777 for 
the data handling area. The first 777 locations are used to run the display and keyboard and should not be 
changed. You may note that the listing does not reflect the true memory locations but do indicate the locations 
relative to the starting locations of the diagnostics. 

The debugger located in the first 1000 locations will allow you to modify any memory location and remember it 
only knows about octal numbers. The commands to the debugger are: 

opens and displays memory location n 
inserts the typed information in n and closes 

modifies, closes location n, and opens location 

modifies, closes location n, and opens location 

displays accumulators 0-3 

set a breakpoint at location n 

deletes breakpoint n (1-9) 

procede from this location 



n/ 

cr 

«- 

t 

A 

nB 

nl) 



the location 

« + l 

n-1 



When you do get an error you will see something like this: 



DATA COMPARE FAILED 
0:123456 1:123455 2:012345 



3:001612 



AC0 = Data that was to be written on the disk 

AC1 = Data that was read from the disk (this may indicate a memory problem) 

AC2 = Memory location the disk data was written into 

AC3 = Of no intrcst concerns the text on the display 

CONTROLLER REPORTS BAD STATUS: 

0:002310 1:007541 2:034523 3:001612 

AC0 = Of no intrest 

AC1 = Disk controller status 

AC2 = Pointer to disk control block that failed 

AC3 = Of no intrest concerns the text on the display 

See the Alto hardware manual for the orginization of the disk command blocks. 

To continue from an error breakpoint just type P. 



Some of the intrcsting locations in the diagnostic: 

0562 Current sector (0-13) updated by the diagnostic 

0563 Minimum sector number 

0564 Maximum sector number 

0565 Current head number (0 = upper, 1 = lower) 

0566 Minimum head number 

0567 Maximum head number 

0570 Current drive (0 or 1) 

0571 Minimum drive number 

0572 Maximum drive number 

0573 Current track number 

0574 Minimum Uack (never less than 100) 

0575 Maximun track 

These locations may be changed to write only with one head and just in one sector on one track. If 0574 is 
changed you may write over the boot loader so never have it less than 100. 

Some samples of the disk command blocks that are used for alignment: 
Four cylinder seek 

1000/2000 2000/ 1000 

1001/0 2001/0 

1002/44002 2002/44002 

1003/0 2003/0 

1004/0 2004/0 

1005/0 2005/0 

1006/0 2006/0 

1007/0 2007/0 

1010/0 2010/0 

1011/10 2011/50 

At this time set location 521 to 1000, when this location has some value other than the disk microcode will go 
to that location for the disk command block. To halt the loop set location 521 to 0. 



Track or 


restore adjustment 




1000/2000 




2000/1000 


1001/0 




2001/0 


1002/44002 




2002/44002 


1003/0 




2003/0 


1004/0 




2004/0 


1005/0 




2005/0 


1006/0 




2006/0 


1007/0 




2007/0 


1010/0 




2010/0 


1011/0 




2011/51 



For head alignment set the command block as follows: 
1000/1000 
1001/0 
1002/44002 
1003/0 
1004/0 
1005/0 
1006/0 
1007/0 
1010/0 
1011/1510(upper head), 1011/1514(lower head) 

The data burst is adjusted with the same block by changing only location 1011. 
1011/1440(uppcr head), 1011/1444(lower head) 

The disk address may be changed at any time and the microcode will ddo the right thing, so you need not stop 
the disk (521/0) to switch from one head to the other. 



This is the listing of the diagnostic, if the diagnostic is loaded at 1000 then the first address is not but 1000 
and the listing reflects the locations relative to 1000, ir loaded at 40000 all locations arc relative to 40000. 

0001 ALTKD 



102513 
102512 



000001 



000521 
000420 
000452 
000501 
061001 
061000 
061002 
000527 
000530 
062000 



ALTO DISK DIAGNOSTIC 
E MCCREIGHT 



DALC SG=SUBL# 0.0.SNC 
DALC SLE=SUBL# 0.0.SZC 

.TILL ALTKD 

.NREL 

.EXTN PIIIAD.MESSAGE 
TXTM 1 

ALTO CONSTANTS 



KBCON = 521; DISK BLOCK ADDRESS 

DASCON = 420; DISPLAY BLOCK ADDRESS 

WWCON = 452; WAKEUPS WAITING ADDRESS 

IVCON = 50l; VECrOR OF INTERRUPT NEW PC'S 

EIR = 61001; OPCODE FOR ENABLE INTERRUPTS 

DIR = 61000; OPCODE FOR DISABLE INTERRUPTS 

BR I = 61002; OPCODE FOR RETURN FROM INTERRUPT 

TRPC = 527; BEFORE A TRAP THE PC GOES HERE 

TRPVEC = 530; THE VECTOR OF 37 TRAP LOCATIONS GOES HERE 

ERROR = 62000; UNIMPLEMENTED 1/0 OPERATION WHICH TRAPS 



THE OLD FORMAT OF A DISK CONTROL BLOCK 



000000 POINTER = 





000001 STATUS = 


1 


000002 DSKCOMM = 


2 


000003 LA BEL = 


3 


000004 DATA = 


4 


000005 IIDRWD = 


5 


000006 DSKADR = 


6 


000007 SUCCESS = 7 




000010 FAILURE = 


10 


00001 L HEADER = 


11 


000012 HNISHUP = 


12 


000013 INTSDONE = 


13 


00001.4 SERRS = 


14 


000015 DCBEND= 


15 



; INITIALIZE THE DISK 
00000'000402 INIT: JMP . + 2; SKIP OVER ERROR BREAK 

00001*002411 BREAK: JMP@ .RR2; PUT DEBUGGER BREAKPOINT HERE !!! 
+ 1; SET UP THE INTERRUPT SYSTEM 



00002*006401 JSR@ 
00003•001500 , SIZEM 
00004*126400 SUB 
00005*000406 JMP 
00006'000000 DB: 0; 
0002 ALTKD 



1,1; ZERO THE ERROR COUNTER 
INITA; SKIP OVER THE DISPLAY CONTROL BLOCK 
MUST BE AN EVEN ADDDRESS 



00007'000040 40 
OOOIO'OOOOOO DBMP: I 
00011'000536 350. 

00()12'001473'.RR2: RR2 



00013-04401MNITA: 

00014'044012- STA 

0001 5-022433 LDA@ 

00016'042433 STA@ 

00017*006401 JSR@ . 

00020'001042' SUINT 

00021-030004- LDA 

00022'020425 LDA 

00023-041002 STA 

00024'030003- LDA 

00025'020425 LDA 

00026-041000 STA 

00027-006424 JSR@ 

00030101010 MOV# 
00031'002401 REDO: 

O0032'000033' WRTIT 



STA l.SERRCNT; 

l.IIERRCNT; 
0..RBOT; 
0..RTOP 
+ 1 



ZERO SOFT ERROR COUNT 
AND HARD ERROR COUNT 
REASON TABLE RESET TO EMPTY 



2.KBLKADR; 

0.ALLONES; 

0,2,2 

2.DASTART 

0.DBLKAD 

0,0,2; 

SDBAD; 

0,0; NOP 

JMP@ . + 1 



SET UP ILLEGAL CURRENT ADRESS TO 
FORCE A SEEK 



START THE DISPLAY 

SET UP DISK CONTROL BLOCK CHAINS 



00033'006456 
00034 '000446 
00035'0304! 7 
00036'0044o6 
00037-101010 
00040 , 006453 
0004110] 010 
00042'006401 
00043-000414 
00044'006446 
00045 '00041 5 
00046*000767 
00047 "177777 
O005O'O0O356 ; 
00051 '000400 
O0052'000006 
00053*000775 
00054*000055' 
00055 '000106' 
00056'000107' 
00057*000001- 
00060'OOOHO' 
00061 '000601 



SMAD 



2.WRTBLK; SET UP TO WRITE AT CURRENT DISK ADDRESS 



WRTIT: JSR@ 

JMP IDONE 
IMORE: LDA 

JSR MKDCB 

MOV# 0,0; 

JSR @ARGEN; 

MOV# 0,0; 

JSR@ . + 1; ENTER CPTR IN COMMAND QUEUE 



NOP 



NOP 



INITIALIZE DATA BLOCK 



EQUE 

JSR@ 

JMP 

JMP 
ALLONES 
.RBOT: 
.RTOP: 
DBLKAD: 
SDBAD: 
WRTBLK: 

WRTALL 

111 OR 

CODAD 

NOPAD 
ANOERR: NOERR 



IAD; 

RDIT; 

IMORE; 

177777 
RSNBOT 
RSNTOP 
DB 

SUDB 
. + 1 



GET THE NEXT DISK ADDRESS 

IF NONE EXIST, READ THE RECORDS 

OTHERWISE, DO IT AGAIN 



READ ALL RECORDS ON THE DISK AND COMPARE THEM WITH WHAT 
WAS WRITfEN 



00062-006427 RDIT: JSR@ SMAD; GO BACK TO THE MINIMUM DISK ADDRESS 

00063"000417 JMP IDONE; (IF ERROR) 

00064'030406 RDMORE: LDA 2.RDBLK; READ A BLOCK AT THE CURREP ADDRESS 

00065'004427 JSR DODCB 

00056-101010 MOV# 0,0; NOP 

00067'006423 JSR@ IAD; GET NEXT DISK ADDRESS 
0003 AL'l'KD 



OOCWOOMtt JMP IDONE; IF WE ARE AT THE END, EMPTY THE QUEUE 

00071000773 JMP RDMORE; OTHERWISE GET A NEW QUEUE ENTRY AND TAKE OFF 

00072*000073 , RDBLK: . + 1 

00073 , 000077' CHRR 

00074'OOOIOL SUBST 

O0075 , O00O01- CODAD 

00076'000100' ACDAT 



00077'000120 CHRR: 
00!00'000615'ACr.\T: 
OOIOI'OOOOOO SUBST: 



120; CHECK HEADER AND LABEL, READ REST OF SECTOR 

CDAT; 





00102'006401 IDONE: JSR@ 
00103'000464' FLUSH 
00J04'002401 SMASH: JMP@ 
O0105'000031' REDO 



. + 1;MAKE SURE COMMAND QUEUE EMFHES 



. + 1 



00106'000374 WRTALL: 374 
0010717.17 L7 IHDR: 1717 L7 

00110'000602'NOPAD: CKDERR; 
00nr000474'SMAD: SETMIN 

00112'000506'IAD: INCAD 
00113'000650'ARGEN: RCEN 



MAKE UP A DISK CONTROL BLOCK AND QUEUE IT FOR THE DISK 



THE PROPER DCB 



00114'054407 DODCB: STA 3.R3DOD 


00115 '004407 


JSR MKDCB; MAKE UP 


00116' 101010 


MOV# 0,0; NOP 


00 117 '006401 


JSR@ . + 1; QUEUE IT 


00120 , 000414 , 


EQUE 


00m'034402 


LDA 3.R3DOD 


00122'001401 


JMP 1,3 



00123'000000 R3DOD: 



MAKE UP A DISK CONTROL BLOCK. REGISTER 2 CONTAINS A POINTER 
TO A FOUR-WORD BI.X)CK OF POINTERS TO ITEMS TO BE INCLUDED 
IN THE CONTROL BLOCK: (0) THE DISK COMMAND 
(L) THE HEADER WORD 

(2) THE DISK ADDRESS 

(3) THE FINISHUP ROUTINE 



00124'054422 MKDCB: STA 



00125*050422 STA 



3.R3MKD 



00126'004422 
00127101010 
OODO'030002- 
OOni'034416 
00132'023400 
00133'041002 
0004 ALTKD 



2.MKDPARM 



JSR GCB; GET AN AVAILABLE COMMAND BLOCK 

MOV# 0,0; NOP 

LDA 2.CPTR; THE COMMAND BLOCK 

LDA 3.MKDPARM 

LDA@ 0,0,3; THE DISK COMMAND 

STA 0.DSKCOMM.2 



00134'023401 LDA@ 0,1.3; THE HEADER WORD 

00135'041005 STA 0,HDRWD,2 

00136*023402 LDA@ 0,2,3; THE DISK ADDRESS 

001.37*041006 STA 0,DSKADR,2 

00140'023403 LDA@ 0,3,3; THE FINISHUP ROUTINE 

00141*041012 STA 0.FINISHUP.2 

00142*102400 SUB 0,0; MARK BLOCK AS UNPROCESSED BY INTERRUPT 

00143U41013 STA 0,INTSDONE,2; ROUTINE 

00L44'0344O2 LDA 3.R3MKD 

00145*001401 JMP 1,3 

00146*000000 R3MKD: 
00147*000000 MKDPARM: 



SKIPS. 



GEf A POINTER TO AN AVAILABLE COMMAND BLOCK IN CPTR. ALWAYS 



00150'054414 GCB: STA 
O0:i51'030OO5-GCl: LDA 



00152151015 

00153*000406 

00154'025000 

00155'044005- 

00156'05O0O2- 

00157'034405 

00160*001401 



MOV# 

JMP 

LDA 

STA 

STA 

LDA 

JMP 



00161'004404 STKEMP: 
00I62'000767 JMP 
00163'000766 JMP 



3.R3G 

2.AS; 
2.2.SNR; 
STKEMP 
l,POINTER,2; 
1.AS 
2.CPTR 
3.R3G 
1,3 

JSR GETQE 

GC1 

GC1 



TRY TO ALLOCATE ONE FROM AVAILABLE STACK 



POP THE AVAILABLE STACK 



00!64'000000 R3G: 



REMOVE A FINISHED ENTRY FROM THE COMMAND QUEUE, AND PUT 
IT IN THE AVAILABLE STACK. ALWAYS SKIP. 



00165*054557 
00166*101010 
00167*030006 
00170*151015 
00171 "00255 3 
00172*025001 
00173125014 
00174'000535 
00175*034004- 
00176*021400 
00177101004 
00200*000766 
00201*021001 
00202101014 
00203'000763 
00204'050007- 
00205*051400 
00206*000760 



GETQE: STA 
GQ1: MOV# 0,0 

LDA 

MOV# 

JMP@ 

LDA 

MOV# 

JMP 



LDA 
LDA 
MOV 
JMP 
LDA 
MOV# 
JMP 
RES: STA 
STA 
JMP 



3.R3Q 

NOP 
2,KQF; CHECK IF COMMAND QUEUE IS EMFFY. IF SO GIVE ERROR 
2 2 SNR - 

R3Q; ' DON'T SKIP IF ERROR 

1.STATUS.2; CHECK THE STATUS OF THE QUEUE FRONT 
1,1, SZR 

PULLIT; CONTROLLER GOT TO IT 
3.KBLKADR; MAKE SURE CONTROLLER IS RUNNING 

0,0,3 
0,0,SZR 

GQ1; IT'S RUNNING. RETRY. 
0.STATUS.2; GET THE STATUS WORD FOR KQF 
0,0,SZR 

GQ1; COMMAND AT KQF IS DONE. PROCESS IT. 
2,KQM; (FOR THE INTERRUP1" ROUTINE) 



2,0,3; DISK CONROLLER IS STOPPED AND HAS NOT PROCESSED 
GQ1; THE COMMAND AT KQF. RESTART IT. 



0005 ALTKD 



00207*010011- AAUGH: ISZ SERRCNT; THERE WAS AN ERROR. ADD ONE TO SOFT 
00210101010 MOV# 0,0; ERROR COUNT. 



00211*022004- 
00212101014 
00213*000776 



LDA@ 
MOV# 
JMP 



0.KBLKADR; 

0.O.SZR 

.-2 



WAIT FOR CONTROLLER TO STOP 



00214'034542 LDA 
00215'020563 SRCHLP: 
00216116512 SLE 0,3 
O02J7'O00421 JMP 



3.RSNBOT; CLASSIFY THE ERROR 
LDA 0.RSNTOP 

LOOK 



00220*020557 
00221116513 
00222*000434 

O0223 , 021001 
00224*041400 
00225102400 
00226*041401 

00227'161400 
00230101400 
00231'040547 

O0232'0545 1 3 

O0233'0250ul 

00234*006000- 

00235*002135' 

00236'034507 

00237*062000 



LDA 0.RSNEND; THIS ERROR NOT IN TABLE 

SG 0,3 

JMP HARDYET; AND NO TABLE SPACE IS LEFT SIGH" 



LDA 
STA 
SUB 
STA 

INC 3,0; 
INC 0,0 
STA 



0.STATUS.2; MAKE TABLE ENTRY FOR THIS ERROR 

0,0,3 

0,0 

0,1,3 

MOVE UP THE TOP OF THE TABLE 

0.RSNTOP 



STA 3.R3SL; A NEW ERROR STATUS IS SEEN 

LDA 1.STATUS.2; SHOW STATUS TO DIAGNOSTICIAN 

JSR@ PMSG 

NEWER 

IDA 3.R3SL 

ERROR 



00240'021001 LOOK: 



0024F024507 
00242' 123400 
00243-025400 
00244' 106400 
00245'020503 
00246' 107405 
00247 - 000404 
00250175400 
00251175400 
00252'000743 



LDA 

AND 

LDA 

SUB 

LDA 

AND 

JMP 

INC 3,3; 

INC 3,3 

JMP 



LDA 0.STATUS.2; SEE IF OUR STATUS MATCHES TABLE, 

l.NOKCON; EXCEFI* FOR SECTOR NUMBER 

1,0 

1,0,3 

0,1 

0,NOKCON 

0.1.SNR 

EFND; YES, IT DOES 

NO, IT DOESN'T. GO TO NEXT ENTRY. 



SRCHLP 



00253*021401 EFND: LDA 

00254101400 INC 0,0 
00255'041401 STA 0,1,3 



0,1,3; 



00256*021014 HARDYET: LDA 
00257*101400 INC 0,0 



INCREMENT NUMBER OF OCCURRENCES 



NUMBER OF SOFT ERRORS FOR THIS BLOCK 



00260*041014 STA 



00261*024470 
00262*106513 
00263'000407 

00264*010012- 

00265101010 

00266'006000- 

0006 ALTKD 



0.SERRS.2; 
0.SERRS.2 
1.HARDTH; HAS SOFf ERROR HARDENED? 



LDA 

SG 0,1 

JMP SOFT 

ISZ HERRCNT; YES, SEND MESSAGE TO THAT EFFECT 
MOV# 0,0 
JSR@ PMSG 



oaierooim' 

00270*062000 



HARDERR 
ERROR 



0027r000444 JMP 

00272*024460 SOFT: 
00273106513 SG 0,1 
00274'000423 JMP AGAIN; 



REMOVE; GIVE UP ON THIS DCB AND TRY THE NEXT ONE 

LDA l.RESTH; SHOULD WE DO A RESTORE? 
NO, JUST RETRY. 



00275*021006 

00276*025002 
002:77*127000 
O03O0'1230O0 
00301*024452 
00302*123400 

00303*024451 
00304*123000 
00305*040506 

00306*034004- 
00307*024446 
00310*045402 

00311*020470 
00312*041400 

00313*021400 
00314*101014 
00315*000776 



LDA 
LDA 
.DD 
ADD 
LDA 
AND 

LDA 
ADD 
STA 

LDA 
LDA 
STA 

LDA 
STA 

LDA 

MOV# 

JMP 



YES, FIGURE OUT WHICH DISK IS INVOLVED 



0.DSKADR.2; 

1.DSKCOMM.2 

1,1 

1,0 

l.DSKBIT 

1,0 



1.RSTBIT; COMPUTE A RESTORE DISK ADDRESS BY 
1,0; ADDING RESTORE BIT TO BIT FOR AFFECTED 

0.RKADR; DISK. 



3.KBLKADR; 

1.MONE 
1,2,3 



FORCE A SEEK ON NEXT OPERATION 



0..RESTOR; START THE DISK CONTROLLER ON A RESTORE 
0,0,3 



00316*045402 STA 

00317*050427 AGAIN: 
00320*151005 ZAPLP: 



0,0,3; 

0.0.SZR 

.-2; 

1,2,3; 



HAS IT STOPPED YET? 
NO -- ASK AGAIN. 

FORCE A SEEK ON NEXT OPERATION 



SCAN THE CHAIN, RESETTING DCBS 



00321-000405 
00322'006401 
00323*001565' 
00324*031000 
00325*000773 



JMP 

JSR@ 

SETLAB 

LDA 

JMP 



STA 2.R2ZAP; 

MOV 2.2.SNR 

RESTART 

. + 1; CLEAR DCB FOR RE-ENTRY ON QUEUE 

2.POINTER.2 
ZAPLP 



00326*030420 RESTART: LDA 2.R2ZAP 

00327*034004- LDA 3,KBLKADR 
O0330'000654 JMP RES 



00331*006401 PULLIT: 


00332*001442* 


CKINT; 


00333*007012 


JSR@ 


00334*000653 


JMP 


00335*035000 REMOVE: 


00336*054006- 


STA 


00337*024005- 


LDA 


00340'045000 


STA 


00341*050005- 


STA 


00342*034402 


LDA 


00343*001401 


JMP 



JSR@ . + 1; VERIFY TI I AT THE CORRECT INTERRUPT 

HAPPENED ON THIS BLOCK 
FINISHUP.2; DO THE FINISHUP ROUTINE 
AAUGII; THINGS DID NOT GO SO WELL 

LDA 3.P01NTER.2; GET NEXT QUEUE FRONT ADDRESS 

3.KQF 

1.AS; PUSH THE ENTRY ON AVAILABLE STACK 
1.POINTER.2; 
2.AS 
3.R3Q 
1.3 



00344'000000 R3Q: 
00345*000000 R3SL: 
0007 ALTKD 



10 



00346'000000 R2ZAP: 





00347170000 OKCON: 


170000 


00350*007777 NOKCON: 


7777 


0035] '000010 HARDTH: 


10; 


00352*000003 RESTU: 


3; NUA 


00353*000002 DSKBIT: 


2 


00354 , 000001 RSTBIT: 


1 


00355177777 MONE: 


177777 



NUMBER OE SOFT ERRORS TO HARDEN 
NUMBER OF SOFT ERRORS TO TRIGGER RESTORE 



00356'000357'RSNBOT: 
000020 .BLK 



00377'000377'RSNEND: 
00400*000000 RSNTOP: 



. + 1 
20; 



ERRORS ARE CATEGORIZED T N THIS TABLE: 

(0) ERROR STATUS (EXCEPT FOR SECTOR NO.) 

(1) NUMBER OF OCCURRENCES 



00401*000402'.RESTOR: . + 1 
00402*000000 
00403'000000 
00404*044002 44002 
00405'000000 
00406'000000 
00407*000000 
(XWIO'OOOOOO 
O04ll'O00OOO 
00412*000000 
00413'000000 RKADR: 



PLACE AN ENTRY IN THE COMMAND QUEUE AND START THE 
CONTROLLER IF APPROPRIATE. 



00414*054456 EQUE: 



00415*030002- 

00416'126400 

00417'045000 

00420'045014 

00421020442 

00422*025002 

00423*107000 

00424'045002 

00425 '006401 

00426'001565' 



LDA 

SUB 

STA 

STA 

LDA 

LDA 

ADD 

STA 

JSR@ 

SETLAB 



00427'024006- LDA 
00430*125014 MOV# 
00431'000405 JMP 
00432'050006- STA 
00433*034004- LDA 
00434*045400 STA 
00435*000403 JMP 
00436'034010-NOTEMP: 
00437*051400 STA 
00440'050010-EQCOM: 
0008 ALTKD 



STA 3,R3F 

2.CPTR; THE ENTRY TO BE ADDED 

1,1 

1.POINTER.2: GIVE IT A POINTER AND 

LSERRS.2; NO SOIT ERRORS 

0, VALID; MARK THIS AS A VALID COMMAND 

l,DSKCOMM,2 

0,1 

1.DSKCOMM.2 

. + 1; CLEAR STATUS AND INTS DONE AND LABEL BLOCK 



l.KQF 

l.l.SZR; CHECK QUEUE FOR EMPTINESS 

NOTEMP 

2.KQF; STORE THIS ENTRY IN QUEUE FRONT IF QUEUE IS EMPTY 

3.KBLKADR 

1,0,3; IDLE THE DISK CONTROLLER, JUST IN CASE 

EQCOM 



LDA 3.KQR 
2.POINTER.3; 
STA 2.KQR; 



POINT CURRENT REAR ENTRY TO NEW ENTRY 
SET REAR POINTER TO NEW ENTRY 



11 



2.KQF; IS THE DISK CONTROLLER QUEUE EMPTY? 

IF SO, WE ARE DONE 

IS THE DISK CONTROLLER RUNNING? 



IF SO, WE ARE DONE 

CHECK THE STATUS OF THE QUEUE FRONT 



0044r030006-FIRELP: LDA 

00442'! 51015 MOV# 2.2.SNR 

00443*000416 JMP EQDON; 

00444'034004- LDA 3.KBLKADR; 

00445'021400 LDA 0,0,3 

00446*101014 MOV# 0,0,SZR 

00447*000412 JMP EQDON; 

00450*021001 LDA 0.STATUS.2; 

00451101014 MOV# 0.0.SZR 

00452'000404 JMP EXTRACT; IF DONE, PULL IT OFF THE QUEUE 

00453*050007- STA 2,KQM; (FOR THE INTERRUPT ROUTINE) 

00454*051400 STA 2,0,3; START THE DISK CONTROLLER 

00455'000404 JMP EQDON 

00456*006415 EXTRACT: JSR@ .GETQE 

00457*1010 L0 MOV# 0,0; NOP 

00460 , 000761 JMP FIRELP 

06461*034411 EQDON: LDA 3.R3F; 

00462'001401 JMP 1,3 

00463*044000 VALID: 44000 

FLUSH THE COMMAND QUEUE INTO AVAILABLE SPACE AS THE CONTROLLER 
FINISHES IT. 

00464*054406 FLUSH: STA 3.R3F 

00465*006406 FL1: JSR@ .GETQE 

00466*000402 JMP FLDON; ERROR RETURN MEANS QUEUE IS EMPTY 

00467*000776 JMP FL1 

00470*034402 FLDON: LDA 3,R3F 

00471*001401 JMP 1,3 

00472*000000 R3F: 

00473'000165'.GETQE: GETQE 



POINTERS, COMMAND BLOCKS, AND OTHER GOODIES 



.ZREL 
00000-177777 PMSG: MESSAGE 
00001-000000 CODAD: 
00002-000000 CPTR: 

00003-000420 DASTART:DASCON 
00004-000521 KBLKADR:KBCON 

00005-000000 AS: 0; TOP OF STACK OF AVAILABLE DCB'S 

00006-000000 KQF: 0; FRONT OF COMMAND QUEUE. MEANS QUEUE IS EMPTY 

00007-000000 KQM: 0; CURRENT ACTION POINT IN COMMAND QUEUE 

; USED AND MAINTAINED BY INTERRUPT ROUTINES. 
00010-000000 KQR: 0; REAR OF COMMAND QUEUE. 

00011-000000 SERRCNT: 0; COUNT OF SOFT ERRORS 

00012-000000 HERRCNT: 0; COUNT OF HARD ERRORS 

00013-000452 WWLOC: WWCON 
00014-000501 INTVEC: IVCON 



0009 ALTKD 
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.NREL 



THIS ROUTINE SETS OR INCREMENTS A DISK ADDRESS. IT 
USES A TABLE OF CURRENT, MIN, AND MAX VALUES FOR THE 
VARIOUS FIELDS OF A DISK ADDRESS. ENCODED ADDRESS GOES IN 
CODAD SKIP IF SUCCESS. 



00474*054464 SETMIN: 
00475 '030464 IDA 
00476*024500 MINLP: 



00477132513 
00500*000427 
00501*025001 
00502*045000 
00503'024474 
00504*133000 



SG 1,2; 

JMP 

LDA 

STA 

LDA 

ADD 



00505'000771 JMP 



STA 3.R3T 

2.TABMIN 

LDA l.TABMAX 

SKIP IF TABMAX>CURTAB 

ENCODE; DONE 

1,1,2; GET MIN FOR THIS FIELD 

1,0,2; MAKE IT CURRENT 

1.TABINC 

1,2; MOVE TO NEXT HELD 

MINLP 



00506 
00507 
00510 
00511 
00512 
00513 
00514 
00515 
00516 
005.17 
00520 
00521 



054452 
030452 
024466 
'132513 
000444 
025000 
125400 
021002 
122512 
000403 
045000 
000406 



INCAD: 

LDA 
INCLP: 

SG 1,2; 

JMP 

LDA 

INC 1,1; 

LDA 

SLE 1,0; 

JMP 

STA 

JMP 



00522'025001 CARRY: 
00523*045000 STA 
00524*024453 LDA 
00525*133000 ADD 
00526*000762 JMP 



STA 3,R3T 

2.TABMIN 

LDA l.TABMAX 

SKIP IF TABMAX>CURTAB 

OFFEND; CARRY PROPAGATED TO NON-EXISTENT FIELD 

1,0,2; GET CURRENT VAIJ1E FOR THIS FIELD 

ADD 1 

0,2,2; GET MAXIMUM VALUE FOR THIS FIELD 

IF CURRENT< = MAX, UPDATE CURRENT AND QUIT 

CARRY 

1,0,2; UPDATE CURRENT 

ENCODE 

LDA 1,1,2; GET MINIMUM VALUE FOR THIS FIELD 

1,0,2: STORE IT IN CURRENT 

LTABINC; MOVE TO NEXT FIELD 

1,2 

INCLP 



00527*024433 ENCODE: LDA l.SECTOR 

00530*125020 MOVZ 1,1; FORCE A ZERO CARRY 

00531*125120 MOVZL 1,1 

00532*125120 MOVZL 1,1 

00533*125120 MOVZL 1,1 

00534*125120 MOVZL 1,1 

00535*125120 MOVZL 1,1 

00536*125120 MOVZL 1,1 

00537 '125120 MOVZL 1,1 

00540125120 MOVZL 1,1 

00541125120 MOVZL 1,1 

00542*030431 IE)A 2.CYL 

00543147000 ADD 2,1 

00544*125120 MOVZL 1,1 

00545*030420 LDA 2.HEAD 

00546*147000 ADD 2,1 

00547125120 MOVZL 1,1 

O0550'030420 LDA 2.DSKNO 

00551147000 ADD 2,1 

00552*125120 MOVZL 1,1 
0010 ALTKD 
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00553044001- STA l.CODAD 

00554 , 034404 LDA 3.R3T 

00555'001401 JMP 1,3 

00556'034402 OFFEND: LDA 3.R3T 

00557'001400 JMP 0,3 



SECTOR 








00560*000000 R3T: 

00561'000562'TABMIN: 

00562'000000 SECTOR: 

00563'000000 

00564'000013 13 

00565 '000000 HEAD: 

00566'000000 

00567'000001 1 

00570'000000 DSKNO: 

00571*000000 

O0572'O00O0O 

O0573'00O0OO CYL: 

00574 000100 100; DONT WIPE OUT THE BOOT AREA 

00575'000312 312 

00576'000576'TABMAX: . 

00577'000003 TABINC: 3 

00600'000001 CI: 1 







REGARDLESS OF THE FINAL STATUS, GIVE A SKIP RETURN 
00601'001401 NOERR: JMP 1,3 



CHECK THAT THE COMMAND COMPLETED CORRECTLY. 



00602-025001 CKDERR 

00603-020411 

00604107415 

00605'001401 

00606 '054405 

00607-006000- 

00610*0016 L6' 

00611'062000 

00612-002401 



LDA 1.STATUS.2; 
LDA 0.ERMSK 
AND# 0.1.SNR 

JMP 1,3; CORRECT RETURN 
STA 3 CKDRET 
JSR@ PMSG 
CDER 
ERROR 
JMP@ CKDRET 



GET THE FINISHING STATUS 



00613*000000 CKDRET: 



00614'000277 ERMSK: 277 



COMPARE THE RECORD READ WITH THE ONE ORIGINALLY WRITTEN 



00615*054427 CDAT: STA 

00616*004764 JSR CKDERR; 
00 1 1 ALTKD 



3,R3C 

CHECK THE STATUS 
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00617*002425 JMP@ R3C; IF ERROR 

00620'050422 STA 2.R2C 

00621*021005 LDA 0.HDRWD.2 

00622 , 02442J LDA 1.IHDR1 

00623106414 SUB# O.l.SZR; CHECK THAT SUBSTITUTION REALLY WORKS 

00624'000406 JMP LNOTEQ 

00625'006422 JSR @ARTST; COMPARE THE RANDOM DATA 

00626'000411 JMP NOTEQ; IF ERROR 

00627*030413 LDA 2,R2C; COMPARE IS OK 

00630'034414 LDA 3.R3C 

00631*001401 JMP 1,3 

00632*061000 LNOTEQ: DIR 
00633*006000- JSR@ PMSG 
00634*001641* LFAIL 
00635'061001 EIR 
00636'062000 ERROR 

00637 "030403 NOTEQ: LDA 

00640*034404 LDA 3.R3C 

00641'001400 JMP 0,3 

00642'000000 R2C: 

00643171717 IHDR1: 171717 
00644*000000 R3C: 
00645 '000010 C8: 10 
00646*0004^0 C256: 400 

00647'0007j2 , ARTST: RTST 



2.R2C 



00650'054447 RGEN: 

00651'050447 STA 

00652'024440 LDA 

0065 3 '044440 STA 

00654-031003 LDA 

00655*034444 LDA 

00656'024436 LDA 

00657 '044436 STA 



RANDOM DATA GENERATOR -- GENERATES INTO LAB AND DAT 

STA 3.R3RG 

2.R2RG 

1.DWDMX 

LDWDCT 

2.LABEL.2; R2 POINTED TO THE DCB 

3.APRO 

1.PRMX: COPY THE STARTUP PARAMETERS TO THE 

1.PRCT; LABEL BLOCK 



00660*025400 RGLPO: 
0066E045000 STA 
00662151400 INC 2,2 
00663175400 INC 3,3 
00664'014431 DSZ 
00665'000773 JMP 



00666*030432 
00667*031004 
00670*102400 



LDA 
LDA 
SUB 



LDA 
1,0,2 



1.0,3 



PRCT 
RGLPO 

2.R2RG 

2.DATA.2; 

0,0 



ADDRESS OF DATA BLOCK 



00671*024423 RGLP: 
00672'044423 STA 
00673*034426 LDA 

00674*025400 RGLPA: 
00675' 123000 ADD 
0012 ALTKD 



LDA 1.PRMX 

l^RCT 

3^\PRO 



LDA 
1.0 



1.0,3 
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00676*041400 
00677*041000 

00700*014413 
00701'151401 
00702'000405 
00703*014412 
00704175401 
00705 000764 
00706'000766 



STA 0,0.3 
STA 0,0.2 
DSZ DWDCT 
INC 2.2.SKP 
JMP RGOK 
DSZ PRCT 
INC 3.3.SKP 
JMP RGLP 
JMP RGLPA 



00707'034410 RGOK: LDA 
00710*030410 I DA 2.R2RG 
00711-001401 JMP 1.3 



3.R3RG 



00712'000400 
00713-000000 
00714'000010 
00715'000000 
00716-000000 
00717-000000 
00720-000000 
00721-000722- 
00722'177777 
00723'166666 
00724'155555 
00725'144444 
00726*133333 
00727-122222 
00730111111 
00731100000 



DWDMX: 400 

DWDCT: 

PRMX: 

PRCT: 

RBEGAD: 

R3RG: 

R2RG: 

APRO: 

PRO: 177777 

166666 

155555 

144444 

133333 

122222 

111111 

100000 
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PRO 



00732*054765 RTST: 

00733'050765 STA 

00734'024756 LDA 

00735'044756 STA 

00736-025003 LDA 

00737 '044757 STA 

00740'031004 LDA 

00741-102400 SUB 



RANDOM DATA TEST ROUTINE 

STA 3.R3RG 

2.R2RG 

l.DWDMX 

1.DWDCT 

1,1ABEL,2 

l.RBEGAD 

2.DATA.2 

0.0 



00742*024752 RTLP: 
00743-044752 STA 
00744-034752 LDA 

00745'025400 RTLPA: 



00746*123000 
00747'041400 
00750'025000 
00751*106414 
00752*000410 
00753*014740 
00754151401 
00755*000415 
00756*014737 
00757*175401 
0013 ALTKD 



ADD 

STA 

LDA 

SUB# 

JMP 

DSZ 



LDA 

1.PRCT 

3.RBEGAD 



1.PRMX 



LDA 

1.0 

0,0,3 

1,0,2 

0.1.SZR 

RTERR 

DWDCT 



1,0,3 



INC 2.2.SKP 
JMP RTOK 
DSZ PRCT 
INC 3.3.SKP 
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00760*000762 


JMP 


RTLP 


00761'000764 


JMP 


RTLPA 


00762*061000 RTERR: 


DIR 


00763*006000- 


JSR@ PMSG 


00764 '001664' 


DATF 




00765*061001 


FIR 




00766*062000 


ERROR 




OO767'034730 


LDA 


3.R3RG 


O0770'030730 


LDA 


2.R2RG 


00771*001400 


JMP 


0,3 


00772'034725 RTOK: 


LDA 


0077 3 '030725 


LDA 


2.R2RG 


00774'001401 


JMP 


1,3 



3.R3RG 



THIS ROUTINE SETS UP DISK DATA AND CONTROL BLOCKS 



O0775'054434 
00776*020434 
00777 '100400 
01000176400 
01001*030432 
01002'055000 
01003*034431 
01004157000 
01005*055011 
01006*034427 
01007157000 
OLOIO'055003 
01011*034425 
01012*157000 
01013*055004 
0I0L4'034424 
01015'055007 
01016*034423 
01017'055010 
01020*155000 
01021*030416 
01022*173000 
0L023101404 
01024*000756 
01025*054005- 
01026*040006- 
01027*034402 
01 030*001401 



SUDB: 

LDA 

NEG 

SUB 

LDA 
SULP: 

LDA 

ADD 

STA 

LDA 

ADD 

STA 

LDA 

ADD 

STA 

LDA 

STA 

LDA 

STA 

MOV 

LDA 

ADD 

INC 0,0 

JMP 

STA 

STA 

LDA 

JMP 



SET HEADER LINK 



SET LABEL LINK 



01031'000000 R3SUD: 
01032*000000 NBUFS: 
O1033'000000 FIRBUF: 
01034*000005 HDRDIS: 
01035*000015 DCBLEN: 
01036*000025 DLLEN: 
01037*000425 BLKLEN: 
01010*000002 CS2: 2 
01 041 '000004 CS4: 4 
0014 ALTKD 



STA 3.R3SUD 

NBUFS 
0,0 

3,3; SET UP ZERO LINK FOR FIRST BLOCK 
2 FIRBUF 

STA 3.POINTER.2; SET STACK LINK 

3.HDRDIS 
2,3 

3TIEADER.2; 
3.DCBLEN 
2,3 

3,LABEL,2; 
3.DLLEN 
2,3 

3!DATA,2; SET DATA LINK 
3,CS2; SUCCESS INTERRUPT 
3,SUCCESS,2 

3,CS4; FAILURE INTERRUPT 
3.FAILURE.2 

2,3; CURRENT BLOCK BECOMES OLD BLOCK 
2.BLKLEN; LENGTH OF A BLOCK 
3,2; ADDRESS OF NEW BLOCK 
,SZR; DONE ENOUGH BLOCKS YET? 
SULP; NO 

3.AS: SET UP THE AVAILABLE STACK 
0.KQF; THE DISK QUEUE IS EMPrY 
3.R3SUD 
1,3 



HDRWD-POINTER 
DCBEND-POINTER 
DCBEND-POINTER + 10 
DCBEND-POINTER + 10+400 
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SET UP AND ENABLE INTERRUPTS 



01042'054450 

01043*034455 

01044*020453 

01 045 '040455 

01046*020453 

01047*041400 

01050*175400 

01051*014451 

01052*000775 

01053*034004- 

01054*020440 

01055*041403 

01.056*020451 

01057*034014- 

01060*024435 

01061*044441 

01062*024431 

01063*030433 

01064*156414 

01065*041400 

01066*175400 

01067*122400 

01 070*0 144^2 

01071 '0007/3 

01 072*034014- 

01073*020430 

01074*041403 

01075'020427 

01076*041402 

01077*020426 

01100*041401 

OHOl'034013- 

01 102*102400 

01103*041401 

01104'061001 

01105*041400 

01106*020420 

01107041401 

01110*034402 
01.111*001401 



SUINT: 

LDA 

LDA 

STA 

LDA 
TSULP: 

INC 3,3 

DSZ 

JMP 

LDA 

LDA 

STA 

LDA 

LDA 

LDA 

STA 

LDA 

LDA 
ISULP: 

STA 

INC 3,3 

SUB 

DSZ 

JMP 

LDA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

SUB 

STA 

EIR 

STA 

LDA 

STA 

LDA 
JMP 



STA 3.R3SU 

3.ATRVEC; INITIALIZE TRAP VECTOR TO 

0.CS40; JMP@ TRPC 

OJSUCNT 

O.ARETROU 

STA 0,0,3 

ISUCNT 

TSULP 

3.KBLKADR 

0.CS10; TURN ON DISK SECTOR INTERRUPTS 

0,3,3 

0.ABADINT 

3.INTVEC 

l.NBADI 

l.ISUCNT 

1.CY1 

2.DBUGAD; DONT MESS WITH THE DEBUGGERS INT 

SUB# 2.3.SZR; SKIP OVER DEBUGGER INTERRUPT 

0,0,3; INITIALLY MARK ALL INTERRUPTS AS BAD 

1,0; THIS LEI'S US FIND OUT WHICH INTERRUPT 

ISUCNT 

ISULP 

3JNTVEC; 

0.ASIR; 

0,3,3 

0.AXER; 

0,2,3 

0.AXNER; 

0,1,3 



NOW FILL IN THE GOOD INTERRUPTS 
THE SECTOR INTERRUPT ROUTINE 

TRANSFER ERROR ROUTINE 

TRANSFER NO-ERROR ROUTINE 



3.WWLOC; ENABLE ALL INTERRUPTS 

0,0 

0,1,3; MASK OFF ALL INTERRUPTS 

0,0,3; WIPE OUT PENDING INTERRUPTS 

0.ALLINTS 

0,1,3; UNMASK ALL INTERRUPTS 

3.R3SU 
1,3 



01112*000000 R3SU: 

01113*000001 CY1: 1 
01114'000010 CS10: 10 
01115*000020 NBADI: 
01116*000517 DBUGAD 
011 17 '000040 CS40: 40 
01120'000530 ATRVEC: 
0U21*001466'ARETROU: RETROU 
01122*000000 ISUCNT: 
01123'001263'ASIR: SIR 
01124*001350*AXER: XER 

01125*001267'AXNER: XNER 
0015 ALTKD 



20; NUMBER OF INTERRUPTS 

IVCON+16; DEBUGGER'S INTERRUPT 

TRPVEC 
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01126177777 ALLINTS: 177777 
01127'001150 , ABADINT: BADINT 



BAD INTERRUPT. THIS SHOULDNT HAPPEN. 



01 130*010522 
01131*010521 
01132'010520 
01133'010517 
01134*010516 
01135*010515 
01136*010514 
01137'010513 
01140*010512 
01141-010511 
01142*010510 
01143*010507 
01144*010506 
01145*010505 
01146*010504 
01147'010503 
01150'054574 
01151*006401 
01152*001376' 
01153*020477 
01154101014 
01155*000463 



ISZ WHY 
ISZ WHY 
ISZ WHY 
ISZ WHY 
rz WHY 
ISZ WHY 
ISZ WHY 
ISZ WHY 
ISZ WHY 
ISZ WHY 
ISZ WHY 
ISZ WHY 
ISZ WHY 
ISZ WHY 
ISZ WHY 
ISZ WHY 
BADINT: STA 
1SR@ 
IREE 
LDA 
MOV# 
JMP 



.+ 1 



3.R3XX 



O.WHY; IS THIS A PARITY INTERRUPT' 

0.0.SZR 

NONPAR 



01156*022475 PARITY: LDA@ 0..DSPL; SAVE THE DISPLAY POINTER 

01157'040475 STA 0.ODSPL 

01160102400 SUB 0,0; TURN OFE THE DISPLAY 

01161*042472 STA@ 0..DSPL 



01 162*020475 


LDA 


0.BIGNO; WAIT FOR DISPLAY TO Ql 


01163*040475 


STA 


0.DLY 


01164*014474 


DSZ 


DLY 


01165*000777 


JMP 


.-1 


01166*022004- 


LDA@ 


0.KBLKADR; WAIT FOR THE DISK 1 


01167*101014 


MOV# 


0,0,SZR 


01170*000776 


JMP 


rl 


01171*061000 


DIR; 


TURN OFF PARITY BIT IN WW 


01172*022464 


IDA® 


0..WW 


0U73'024462 


LDA 


1.PARCON 


01174*124000 


COM 


1.1 


01175123400 


AND 


1,0 


01176*042460 


STA@ 


0..WW 


01177*061001 


EIR 





01200152400 SUB 

0120F050461 STA 

01202*020457 LDA 

01203*040455 STA 

01204*021000 PARLP: 
0016 ALTKD 



2,2; SET UP FOR A MEMORY PASS TO LOOK FOR PARITY 

2.NFND; NUMBER OF ERRORS FOUND ON THIS PASS 

0.LIMIT 
0.DLY 



IDA 



0,0,2; 



PICK UP A WORD 
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01205*101000 
01206*026450 
01207*125212 
01210'000416 



MOV 
LDA 1 @.WW 
MOVR# 1 1 SZC 
JMP FNDIT; 



01211*151400 PARNX: 
01212*014446 DSZ 

01213*000771 jmp 



0L214'020440 
01215*042436 

01216*020444 
01217*101004 
01220*000424 

01221*061000 
01222'006000- 
01223"00170r 
01224*062000 



LDA 
STA@ 

LDA 
MOV 
JMP 



INC 2,2; 

DLY 

PARLP 

O.ODSPL; 
0..DSPL 



;GIVE THE INTERRUPT TIME TO TRY TO HAPPEN 

YES .. AC2 POINTS TO THE CULPRIT 
NO .. TRY NEXT WORD 



START UP THE DISPLAY AGAIN 



0.NFND; IF AT LEAST ONE ERROR WAS FOUND, IT 

0.0.SZR; WAS NOT A PHANTOM 

REINT 



DIR 

JSR@ PMSG 

NOPE 

ERROR; PARITY ERROR, NO BAD WORD FOUND 



01225*000417 JMP REINT 



01226*010434 FNDIT: 

01227*061000 DIR 

01230*006000- 

01231*001717* 

01232'062000 

01233022423 

01234*101200 

01235*101120 

01236*042420 



ISZ NFND; WE FOUND ANOTHER ERROR 

JSR@ PMSG 

REALP 

ERROR; PARITY ERROR AC2 POINTS TO BAD WORD, AC0 HAS DATA READ 

IDA @.WW ;TURN OFF THE P.E. BIT IN WW 

MOVR 

MOVZL 

STA @.WW 



01237*000752 JMP PARNX; TRY FOR ANOTHER BAD WORD 

01240*061000 NONPAR: DIR 

01211*006000- JSR@ PMSG 

01242'001735* XXI 

OL243'062000 ERROR; UNEXPECTED INTERRUPT, NOT PARITY 



01244*010406 REINT: 
01245*014405 DSZ 
0l246 - 000777 JMP 
01247*034475 LDA 
01250'002401 JMP@ 
01251*001425* IRET 

01252*000000 WHY: 
01253*000420 .DSPL: 
01254*000000 ODSPL: 
01255*000001 PARCON: 
01256*000452 .WW: 452 
01257177777 BIGNO: 
01260*000000 DLY: 
01261*137777 LIMIT: 
01262*000000 NFND: 



ISZ WHY; 
WHY 
.-1 
3.R3XX 

. + 1 





420 

1 

177777 



MAKE SURE WHY IS POSITIVE 



137777 

0; NUMBER OF ERRORS FOUND ON THIS PASS 



0017 ALTKD 



SECTOR INTERRUPT ROUTINE. ADD ONE TO SECTOR COUNTER AND 
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; RETURN. 

01263*0:10403 SIR: ISZ SECTCNT 
01264101010 MOV# 0,0; NOP 
01265*061002 BRI 

01266'000000 SECTCNT: 



TRANSFER NO-ERROR ROUTINE 



01 267 '054455 
01270'006401 
01271'001376* 

01272'030007- 

01273*021001 

01274*024451 

01275*123400 

01276*024450 

01277*106415 

01300'000404 

O13OI'OO6O00- 

01302*001753' 

01303*062(^0 

01304*024443 

01305*021013 

01306*101015 

01307*000404 

01310*006000- 

01311*002001' 

01312*062000 

01313'045013 

01314*031000 

01315*050007- 

01316*151015 

01317000422 

O1320'021001 

01321*101015 

01322*000417 

01323*024422 

01324*123400 

01325*024421 

01326106414 

01327*000403 

01330*021007 

01331'000402 

01332*021010 

01333*026013 

01334111000 

01335133400 

01336146400 

01337123000 

01340'042013 

01341*034403 

01342'002401 

01343*001425' 



STA 
. + 1 



3.R3XX 



2.KQM 

0.STATUS.2; 

1.CX7677 

1,0 

1.CX7400 

0.1.SNR 



PICK UP THE DCB*S STATUS 



XNER: 
JSR@ 
IREE 
LDA 
LDA 
LDA 
AND 
LDA 
SUB# 
JMP .4-4 
JSR@ PMSG 
WRSTAT 

ERROR; ERROR STATUS OR NO STATUS 

LDA 1.CX1; NEW 1NTERRUF1 PROCESSED WORD 
XCOM: LDA 0.INTSDONE.2; GET OLD INTERRUF 
MOV# 0.0.SNR; SHOULD BE 
JMP .4-4 
JSR@ PMSG 
IAP 

ALREADY PROCESSED BY INTERRUPT 

l,INTSDONE,2; STORE NEW VALUE 

2.POINTER.2; MOVE TO NEXT COMMAND BLOCK 

2.KQM 

2.2.SNR; CHECK FOR NULL LINK 

XRET 

0.STATUS.2; GET THE STATUS OF THE OPERATION 

0,0,SNR 

XRET: NOT YET FINISHED 



PROCESSED WORD 



ERROR 

STA 

LDA 
■ STA 

MOV# 

JMP 

LDA 

MOV# 

JMP 

LDA 

AND 

LDA 

SUB# 

JMP 

LDA 

JMP 
XER1: 
XSHR: 

MOV 

AND 

SUB 

ADD 

STA@ 
XRET: 

JMP@ 

IRET 



1.CX7677; 

1,0 

1.CX7400 

0.1.SZR 

XER1 

0,SUCCESS,2; 

XSHR 



ENSURE THAT THE INTERRUPT HAPPENS 



GET NO-ERROR INTERRUPT WORD 



LDA 

LDA 

0,2 

1.2 

2,1 

1,0 

0.WWLOC 

LDA 3.R3XX 

. + 1 



0.FAILURE.2; GET ERROR INTERRRUPT WORD 

1.WWLOC; OR THE INTERRUPT WORD INTO WW 



0018 ALTKD 
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01344*000000 R3XX: 

01345*007677 CX7677: 7677 

01346*007400 CX7400: 7400 
01347*000001 CXI: 1 



TRANSFER ERROR INTERRUPT ROUTINE 



2.KQM 

0.STATUS.2; GET THIS DCB'S STATUS 

1.CX7677 

1,0 

1.CX7400 

0.1.SZR 



01350*054774 XER: STA 3.R3XX 

01351*006401 .")R@ . + 1 

01352*001376* IREE 

01353*030007- LDA 

01354*021001 LDA 

01355*024770 LDA 

01356*123400 AND 

01357*024767 LDA 

01360*106414 SUB# 

01361*000404 JMP . + 4 

01362*006000- JSR@ PMSG 

01363*002022* NESE 

01364*062000 ERROR; STATUS IS NO ERROR 

01365*123400 AND 1,0 

01366*122415 SUB# 1.0.SNR 

01367*000404 JMP . + 4 

01370*006000- JSR@ PMSG 

01371*002050' NSSE 

01372*062000 ERROR; NO STATUS STORED 

01373*024402 LDA 1.CX2 

01374'000711 JMP XCOM 

01375*000002 CX2: 2 



REENABLE DEBUGGER INTERRUPT AND SAVE STATE 



01376*040421 IREE: STA 

01377*044421 STA 1.R1X 

01400'050421 STA 2.R2X 

01401*022414 LDA @TPCP 
TRAP 

01402*040414 STA OTPC 

01403'030013- LDA 2.WWLOC 

01404'021001 LDA 0,1,2; 

01405*040415 STA 0.CMASK 

01406*020415 LDA 0.DBMSK 

01407'041001 STA 0,1,2; 

01410*030014- LDA 2.INTVEC 

01411*021377 LDA 0,-1,2; 

01412*040412 STA 0.OLDPC 

01413*061001 EIR 

01414*001401 JMP 1,3 



0.R0X 



;SAVE TRAP PC IN CASE WE WERE INTERRUPTED OUT OF A 



SAVE CURRENT INTERRUPT MASK 



SET NEW MASK FOR ONLY DEBUGGER 
SAVE INTERRUPT OLD PC 



01415'000527 TPCP: 
01416*000000 OTPC: 
01417*000000 R0X: 
0019 ALTKD 



527 
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01420'000000 R1X: 
0142] '000000 R2X: 
01422 , 000000 CMASK: 
01423*040000 DBMSK: 40000; 
01424*000000 OLDPC: 



THE DEBUGGER INTERRUPT ONLY 



STUFF 



REENABLE ALL INTERRUPTS AND RETURN CONTROL TO INTERRUPTED 



01425*061000 IRET: DIR 

01426*020770 LDA OTPC 



01427'042766 


STA @TPCP 


01430*030013- 


LDA 


2.WWLOC 


01431'020771 


IDA 


0.CMASK 


01432'041001 


STA 


0,1,2; 


01433*030014- 


LDA 


2.INTVEC 


01434-020770 


LDA 


0.OLDPC 


01435'041377 


STA 


0,-1,2; 


01436*020761 


LDA 


0.R0X 


01437-024761 


LDA 


1.R1X; 


01440-030761 


LDA 


2.R2X 


01441*061002 


BRI 





RESTORE ORIGINAL MASK 



RESTORE OLD PC 
RESTORE REGISTERS 



THIS ROUTINE VERIFIES THAT AN INTERRUPT WAS PROCESSED FOR 
THIS DCB AND THAT ITS TYPE WAS CONSISTENT WITH THE 
STATUS ENTERED IN THE DCB. 



01442'054423 CKINT: 

01 .443*02 1001 LDA 

01444'024701 LDA 

0J 445'123400 AND 

01446*024700 LDA 

01447-106414 SUB# 

01450'000413 JMP 

01451*024676 LDA 

01452*02 101 3 CKINCOM 

01453*106415 SUB# 

01454*000405 IMP . + 5 

01455*061000 DIR 

01456*006000- JSR@ PMSG 

01457 '00207 3' WINT 

01460*062000 ERROR; WRONG TYPE OR NO TYPE 

01461*034404 LDA 3.R3CKS 

01462*001401 JMP 1,3 



STA 3.R3CKS 

0.STATUS.2; GET THE DCB'S STATUS WORD 

1.CX7677 

1,0 

1.CX7400 

0.1.SZR 

CKIER 

1.CX1; PROPER INTERRUPT TYPE FOR NO ERROR 

LDA 0.INTSDONE.2; ACTUAL TYPE 

0.1.SNR 



01463'024712 CKIER: 
014(>4 '000766 JMP 



LDA 1.CX2; 
CKINCOM 



PROPER INTERRUPT TYPE FOR ERROR 



01465'000000 R3CKS: 



0020 ALTKD 
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01466*054407 RETROU: 
01467'036407 LDA@ 
01470'054407 STA 
01471*002401 JMP@ 
01472'OOOOOL' BREAK 



STA 3.R3RU 

3.ATRPC 

3.LOCPC 

. + 1;JUMP TO BREAKPOINTED INSTRUCTION 



01473'034402 RR2: LDA 3.R3RU 
01474'002403 JMP@ LOCPC 

01475'000000 R3RU: 

01476*000527 ATRPC: TRPC 
01477'000000 LOCPC: 



01500-054453 
0150F030455 
01502126520 
01503'045001 
01504*021001 
01505132400 
01506122404 
01507*000774 
01510'0524A7 

01511*020443 
01512*024443 
01513*106414 
01514-000403 

OF 

01515*145000 
01516'020442 
0J517'042442 

END 

01520-042442 
01521-036442 
01522-152401 
01523151400 
01524163000 
01525-106032 
01526'000775 
01527-052435 

AREA 



;SIZE AND PARCEL OUT MEMORY. IF THERE IS SPACE BETWEEN 1000 

;AND THE BOTTOM OF THE PROGRAM, WE USE IT FOR DISK BUFFERS 
SIZEM: STA 3 SIZRET 

LDA 2 EOM ;SIZE THE MEMORY 

SUBZL 1 1 
SIZEL: STA 1 1 2 

LDA 12 

SUB 1 2 

SUB 1 SZR 

JMP SIZEL 

STA 2 @PLIM 

LDA SOMEM ;START OF MEMORY 

LDA 1 SOP ;START OF PROGRAM 

SUB# 1 SZR 

JMP SIZED 

;OTHERWISE, WE USE SPACE FROM THE END OF THE DEBUGGER TO THE END 

;CORE 
MOV 2 1 
LDA EOP 
SIZED: STA @PBUFS 



;AC0 CONTAINS THE START OF THE BUFFERS.AC1 THE 



STA ©DBMS 
LDA@ 3 BUFSZ 
SUB 2 2 SKP 
BUFL: INC 2 2 

ADD 3 

ADCZ# 1 SZC ;SKGE 
JMP BUFL 
STA 2 @NBP 



;AC2 = NUMBER OF BUFFERS WHICH WILL FIT IN THE GIVEN 



;NOW WE GO THROUGH MEMORY AND CORRECT PARITY 
01530*061001 EIR 
01531102400 SUB 

01532'042420 STA @UGHX ;CLEAR NWW 
01533*036424 LDA 3 @PLIM 
01534*152520 SUBZL 2 2 
01535*021400 PQLP: LDA 3 

01536*041400 STA 3 

LDA 10 3 

SUB# 1 SZR 

JMP. + l 

LDA 1 @UGIIX :CHECK FOR ERROR 

MOVR# 1 1 SNC 

JMP . + 2 

JMP . + 1 ;BREAK HERE TO GET THE BAD NEWS 



01537*025400 
01540*106414 
01541-000401 
01542*026410 
01543*125213 
01544-000402 
01545'00040L 
0021 ALTKD 
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01546156404 
01547'000766 
01550-034403 
01551-001401 



SUB 2 3 SZR 
JMP PQLP 
LDA 3 SIZRET 
JMP 1 3 



01552-OO0452 UGHX: 452 

01553-000000 SIZRET: 

01554-001000 SOMEM: 1000 

01555'000000'SOP: INIT 

01556'176777 EOM: 176777 

0] 557-00] 261'PLIM: LIMIT TOP OF MEMORY FOR PARITY SCAN 

01560*177777 EOI PHIAD 

0156 TOO 1033'PBUFS: FIRBUF 

01562000010'DBMS: DBMP 

01563*00 1037'BUFSZ: BLKLEN 

01564-001032'NBP: NBUFS 



CLEAR THE STATUS AND INTERRUPTS DONE FIELDS 

IF THE LABEL BLOCK IS TO BE CHECKED, CLEAR IT FIRST 



01565'054424 SEFLAB: STA 



3.R3SET 



01 566" 102400 
01567*041001 
01570-041013 

01571-021002 
01572'024420 
01573-123400 
01574'024417 
01575'106414 
01576'000411 

01577-020415 
01600'040415 

01601-035003 
01602102400 



SUB 

STA 
STA 

LDA 

LDA 

AND 

LDA 

SUB# 

JMP 

LDA 
STA 

LDA 
SUB 



01603'041400 SETUP: 
01604-175400 INC 3,3 
01605014410 DSZ 
01606'000775 JMP 



0,0 

0.STATUS.2; CLEAR DCBS ST\TUS 

0.INTSDONE.2; AND INTERRUPTS PROCESSED 



0.DSKCOMM.2 

l.CKLM 

1,0 

l.CKLV 

0.LSZR 

ESEfLAB; 



NOT CHECKING THE LABEL 



0.SL10; LENGTH OF THE LABEL BLOCK 
0,SLCNT 

3.LABEL.2 
0,0 

STA 0,0,3; CLEAR A WORD 

SLCNT 
SETLLP 



01607'034402 ESETLAB: LDA 3.R3SET 

01610-001401 JMP 1,3 



01611-000000 R3SET: 
01612-000060 CKLM: 
01613-000020 CKLV: 
01614-000010 SL10: 10; 
01615-000000 SLCNT: 





60; MASKS ONLY LABEL PART OF COMMAND 

20; VALUE OF LABEL FIELD IF CHECKING 

LENGTH OF LABEL BLOCK 





01616-020040 
0022 ALTKD 



CDER: .TXT / 



CONTROLLER REPORTED BAD STATUS<15>/ 



25 



016:L7*020040 

01620*020103 
01621*047516 
01622*052122 
01623*047514 
01624'046105 
01625*051040 
1626*05 1105 
01627D50J17 
01630'051124 
0163.1*042504 
01632*020102 
01633*040504 
01634*020123 
01635'052101 
01636*052125 
01637*051415 
01640*000000 

01641'020040 
01642'020040 
01643'020114 
01644'040502 
01645*042514 
01646*020102 
01647'046117 
01650*041513 
0L651'020123 
01652*052502 
01653*051524 
01654*044524 
01655'052524 
01656'044517 
01657*047040 
01660*043101 
01661*044514 
01662'042504 
01663'006400 

01664*020040 
01665*020040 
0J 666*020104 
01667 '040524 
01670'040440 
01671'041517 
01672'046520 
01673*040522 
01674*042440 
01675*043101 
01676*044514 
01677*042504 
01700*006400 

01701'020040 
01702*020040 
01703'020120 
01704'044101 
01705*047124 
01706*047515 
0023 ALTKD 



LFAIL: .TXT 



LABEL BLOCK SUBSTITUTION FAILEIX15>/ 



DATF: .TXT / 



DATA COMPARE FAILELX15>/ 



NOPE: TXT / PHANTOM PARITY ERROR<15>/ 



26 



Or/07'020120 
01710*040522 
017ir044524 
01712*054440 
01713*042522 
01714-051117 
01715-051015 
01716'000000 

01717 , 020040 
01720'020040 
01721 '020120 
01722'040522 
01723-044524 
0L724'054440 
01725'042522 
01726'051117 
01727'051040 
01730'042105 
01731-052105 
01732*041524 
01733-042504 
01734-006400 

01735*020040 
01736'020(Vi0 
01737'0201Z5 
01740'047105 
01741*054120 
01742'042503 
01743"052105 
01744'042040 
01745'044516 
01746'052105 
01747*051122 
01750-052520 
0L75E052015 
01752-000000 

01753'020040 
01754'020040 
01755'020116 
017 56*047455 
01757'042522 
01760-051117 
01761-051040 
01762-044516 
01763*052105 
01764'051122 
01765'052520 
01766-052040 
01767*043501 
01770'053105 
01771'020127 
01772'051117 
01773*047107 
01774*020123 
01775*052101 
01776-052125 
0024 ALTKD 



REALP: .TXT / PARITY ERROR DETECTED<15>/ 



XXI: 



.TXT 



UNEXPECTED 1NTERRUPT<15>/ 



WRSTAT: 



TXT 



NO-ERROR INTERRUPT GAVE WRONG STATUS<15>/ 
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01777*051415 

02000-000000 

02001 -020040 
02002'020040 
02003'020111 
02004-047124 
02005'042522 
02006'051125 
02007 '050124 
02010'020101 
0201F046122 
02012'042501 
02013'042131 
02014'020120 
0201 5'05 1117 
02016'041505 
02017-051523 
02020-042504 
0202.r006400 

02022'020040 
02023'020040 
02024-020116 
02025-047455 
02026-042522 
02027-051117 
02030'051040 
02031'051524 
02032'040524 
02033'052523 
02034-020 L06 
02035-0511 L7 
02036'046440 
02037-042522 
02040-051117 
0204V05L040 
02042'044516 
02043-052105 
02044'05L122 
02045-052520 
02046'052015 
02047'000000 

02050'020040 
0205 L'020040 
02052'020116 
02053'047440 
02054-051524 
02055'040524 
02056'052523 
02057'020106 
02060-051117 
02061*046440 
02062'042522 
02063'051117 
02064-051040 
02065*044516 
02066'052105 
0025 ALTKD 



IAP: 



.TXT 



INTERRUPT ALREADY PROCESSEEK15>/ 



NESE: .TXT / NO-ERROR STATUS FROM ERROR INTERRUPT<15>/ 



NSSE: TXT / NO STATUS FROM ERROR 1NTERRUPT<15>/ 
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020*57*051122 

02070*052520 
02071*052015 
02072*000000 

02073*020040 
02074*020040 
02075*020127 
02076*05 1117 
02077*047107 
02100*020111 
02101*047124 
02102*042522 
02103*051125 
02104*050124 
02105*020124 
02106*054520 
02107'042440 
02110'043117 
02111*051040 
02112'042522 
02113*051117 
02114*051015 
02115*000000 

02116*020040 
021i7'020040 
02120*020123 
02121*047506 
02122*052040 
02123'042522 
02124*051117 
02125*051040 
02126'044101 
02127*051440 
02130*044101 
02131*051104 
02132*042516 
02133*042504 
02134*006400 

02135*020040 
02136*020040 
02137'020116 
02140*042527 
02141*020105 
02142*051122 
02143*047522 
02144*020123 
02145*052101 
02146*052125 
02147*051440 
02150*047117 
O2151'052111 
02152'041505 
02153'042015 
02154*000000 

0026 ALTKD 



WINT: .TXT / WRONG INTERRUPT TYPE FOR ERROR<15>/ 



HARDERR: .TXT 



SOIT ERROR HAS IIARDENEEX15>/ 



NEWER: 



TXT / NEW ERROR STATUS NOTICEEK15>/ 



.END 
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AAUGII 000207* 
ABADI 001127* 
ACDAT 000100' 
AGAIN 000317' 
ALLIN 001126' 
ALLON 000047' 
ANOER 000061* 
APRO 000721' 
ARCTR 001121" 
ARGEN 000113' 
ARTS! 000647' 
AS 000005- 
ASIR 001123' 
ATRPC 001476* 
ATRVE 001120' 
AXER 001124' 
AXNER 001125' 
BADIN 001150' 
BIG NO 001257' 
BLKLE 001037' 
BREAK 000001' 
BRI 061002 
BUFL 001523' 
BUFSZ 001563' 
CI 000600' 
C256 000M6' 
C8 0(X)645' 
CARRY 000522' 
CDAT 000615" 
CDER 001616' 
CHRR 000077' 
CKDER 000602" 
CKDRE 000613' 
CKIER 001463' 
CKINC 001452" 
CKINT 001442' 
CKLM 001612' 
CKLV 001613' 
CMASK 001422' 
CODAD 000001- 
CPTR 000002- 
CS10 001114" 
CS2 001040" 
CS4 00L041" 
CS40 001117' 
CXI 001347' 

CX2 001375" 

CX740 001346' 
CX767 001345' 
CY1 001113' 
CYL 000573' 
DASCO 000420 
DASTA 000003- 
DATA 000004 
DATF 001664" 
DB 000006' 
DBLKA 000052' 
DBMP 000010' 
DBMS 001562' 
0027 ALTKD 



30 



DBMSK 001423' 
DBUGA 001116' 
DCBEN 000015 
DCBLE 001035' 
DIR 061000 

DLLEN 001036* 
DLY 001260' 
DODCB 000114" 
DSKAD 000006 
DSKBI 000353' 
DSKCO 000002 
DSKNO 000570' 
DWDCT 000713' 
DWDMX 000712' 
EFND 000253' 
EIR 061001 
ENCOiD 000527' 
EOM 001556* 
EOP 001560' 
EQCOM 000440' 
EQDON 000461' 
EQUE 000414' 
ERMSK 000614' 
ERROR 062000 
ESETL 001607' • 
EXTRA 000456" 
FAILU 000010 
FINIS 000012 
FIRBU OOL033' 
FIREL 000441' 
FL1 000465' 
FLDON 000470' 
FLUSH 000464" 
FNDIT 001226* 
GC1 000151" 

GCB 000150' 
GETQE 000165' 
GQ1 000166' 
HARDE 002116' 
HARDT 000351' 
HARDY 000256" 
HDRDI 001034' 
HDRWD 000005 
HEAD 000565' 
HEADE 000011 
IIERRC 000012- 
IAD 000112' 

IAP 002001" 
IDONE 000102' 
IHDR 000107' 
IHDR1 000643* 
MORE 000035' 
INCAD 000506' 
INCLP 000510' 
INIT 000000' 
INITA 000013' 
INTSD 000013 
INTVE 000014- 
IREE 001376' 
0028 ALTKD 
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IRET 


001425' 


ISUCN 


001122' 


ISULP 


001064' 


IVCON 


000501 


KBCON 


000521 


KBLKA 


000004- 


KQF 


000006- 


KQM 


000007- 


KQR 


000010- 


LABEL 


000003 


LFAIL 


001641' 


LIMIT 


001261' 


LNOTE 


000632' 


LOCPC 


00L477* 


LOOK 


000240' 


MESSA 


000000-X 


MINLP 


000476' 


MKDCB 000124' 


MKDPA 


000147' 


MONE 


000355' 


NBADI 


001115' 


NBP 


001564' 


NBUFS 


001032' 


NESE 


002022' 


NEWER 


002135* 


NFND 


001262' 


NOERR 


000601' 


NOKCO 


000350' 


NONPA 


001240' 


NOPAD 


000110' 


NOPE 


001701' 


NOTEM 


000436' 


NOTEQ 


000637' 


NSSE 


002050' 


ODSPL 


001254' 


OFFEN 


000556' 


OKCON 


000347' 


OLDPC 


001424' 


OTPC 


001416" 


PARCO 


001255* 


PARIT 


001156' 


PARLP 


001204' 


PARNX 


001211' 


PBUFS 


001561* 


PHIAD 


001560'X 


PLIM 


001557* 


PMSG 


000000- 


POINT 


000000 


PQLP 


001535' 


PRCT 


000715' 


PRMX 


000714" 


PRO 


000722' 


PULLI 


000331* 


ROX 


001417' 


R1X 


001420' 


R2C 


000642" 


R2RG 


000720" 


R2X 


001421* 


R2ZAP 


000346* 


0029 ALTKD 
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R3C 


000644' 


R3CKS 


001465* 


R3D0D 


000L23* 


R3F 000472* 


R3G 


000164' 


R3MKD 


' 000146' 


R3Q 


000344* 


R3RG 


000717* 


R3RU 


001475* 


R3SET 


001611' 


R3SL 


000345* 


R3SU 


001112' 


R3SUD 


001031' 


R3T 


000560' 


R3XX 


001344* 


RBEGA 


000716' 


RDBLK 


000072' 


RDIT 


000062' 


RDMOR 000064' 


P.EALP 


001717' 


REDO 


000031' 


REINT 


001244' 


REMOV 


000335' 


RES 


000204' 


RESTA 


000326' 


RESTH 


000^52* 


RETRO 


001466* 


RGEN 


000650' 


RGLP 


000671" 


RCLPA 


000674' 


RGLPO 


000660' 


RGOK 


000707' 


RKADR 


000413' 


RR2 


001473' 


RSNBO 


000356' 


RSNEN 


000377' 


RSNTO 


000400' 


RSTBI 


000354' 


RTERR 


000762' 


RTLP 


000742' 


RTLPA 


000745' 


RTOK 


000772' 


REST 


000732' 


SDBAD 


000053' 


SECTC 


001266* 


SECTO 


000562' 


Sl-RRC 


000011- 


SLRRS 


000014 


SETLA 


001565' 


SETLL 


001603' 


SETMI 


000474' 


SIR 001263* 


SIZED 


001517' 


SIZEL 


001503' 


SIZEM 


001500' 


SIZRE 


001553' 


SL10 


001614' 


SLCNT 


001615' 


SMAD 


0001 ir 



0030 ALTKD 
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SMASH 000104' 

sorr 000272* 

SOMEM 001554' 
SOPOOJ555' 
SRCHL 000215' 
STATU 000001 
STKEM 000161' 
SUBS'!' 000 ior 
SUCCE 000007 
SUDB 000775' 
SUINT 001042' 
SULP 001002' 
TABIN 000577' 
TABMA 000576" 
TABMI 000561' 
TPCP 001415' 
TRPC 000527 
TRPVE 000530 
TSULP 001047' 
UGHX 001552' 
VALID 000463' 
WHY 001252' 
WINT 002073' 
WRSTA 001753' 
WRTAL 000106" 
WRTBL 000054' 
WRTIT 000033* 
WWCON 000452 

WWLOC 000013- 

XCOM 001305' 
XER 001350' 
XER1 001332' 
XNER 001267' 
XRET 001341* 
XSIIR 001333' 
XXI 001735' 
ZAPLP 000320* 
.DSPL 001253' 
.GETQ 000473' 
.RBOT 000050' 
.REST 000401' 
.RR2 000012' 
.RTOP 000051* ■ 
.WW 001256' 



